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DECLARATIONS 
tine cee - REL. S$GET & SFIND 


DE 
GETREC ROUTINE TO LOCATE RECORD IN BUFFER 
ETFIND2 = COMMON $GET AND SFIND CODE TO ACCESSRECORD 
ETLOCK2 = LOCK RELATIVE RECORD IF NECESSARY 


J 4 
: on = . . | 2 
voe~b01 rr emote a 7 ed "SrSEp=1986 97:13:37 ERmsusaclanccer.mans2 =| 8 fy, VO08: 


SBEGIN RM2GET,001,RMSRMS2,<RELATIVE SPECIFIC GET AND FIND> 
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® 

COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
RIGHTS RESER . 
® 

OFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
SUCH LICENSE AND WITH THE 

THIS SOFTWARE OR ANY OTHER * 

V HERUISE MADE AVAILABLE TOANY © 

N E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 

TRANSFERRED. . 
® 

* 

% 

* 
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® 
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® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeponaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS ei 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 
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8 p++ 
3; Facility: rms32 
: Abstract: 


this module provides relative file organization- 
specific processing for the $get and $find functions. 


Environment: 
star processor running starlet exec. 
Author: L F Laverdure, creation date: 4-NOV-1977 | 
Modified By: 
v04-001 JEJ0054 James E Johnson 07-Sep-1984 


Fix error handling in a $PUT operation to not try to 
release a BDB that we don't have. 


V03-006 DGB0065 Donald G. Blair 02-Jul-1984 
Fix error hand) 108 to report rms$ aad correctly when 
ND ative record number 


user tries to $FIND an illegal rel 


on a shared relative file. 


V03-005 KBT0447 Keith B. Thompson 5-Dec-1982 
Change ref. rm$cachec to rm$cache 

v03-004 KBT0317 Keith B. Thompson 8-Sep-1982 
Remove all SO sharing code 

v03-003 KBT0128 Keith B. Thompson Vreven ree 
Remove a ref. to set_sifb_adr i forgot in KBT0114 and 


reorganize psects 


| 
| 
v03-002 KPLO002 Peter Lieberwirth 19-Aug-1982 
Fix bug where shared access of record past MRN (should 
be illegal) returned status OK_ALK. This was due to a 
failure to check for error on return from GETFIND2. 
| 
| 
| 
| 
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Add su gort for new record locking functions: lock for READ, 
and WAIT on record lock conflict. WAIT requires reaccessing 
bucket after successful wait for record lock. 
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v03-001 KBT0114 Keith B. Thompson 6-Aug-1982 
Remove ref to set_sifb_adr 
v02-032 RAS0063 Ron Schaefer 29-Jan-1982 
oy Correct probes of the user's key and record buffers. 
ie v02-031 CDS0002 C Saether 15-Dec-1981 
7 Load R4 with CURBDB at SETR7 point such that it reflects 
0 74 the fact that some errors from RMSLOCK will leave the 
3 o? current bucket not accessed. 
0 rs v02-030 CdS0001 C Saether 10-Dec-1981 
; 4 Fix broken branch. 
6 9 v02-029 KPLO0001 Peter Lieberwirth 9-Jul-1981 
00 OBS 
0 4 
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Also clean up some commentary that was incorrectly reformatted. 


v02-028 CDS0075 C D Saether 28-Aug-1980 16:20 


Make check for MRS correctly with VFC format records. 
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; bit offset to rop 


-SBTTL DECLARATIONS 


ROP=RABSL_ROP*8 


Equated Symbols: 
Own Storage: 
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~SBTTL RMSGET2/RMSFIND2 = REL. SGET & SFIND 


eu 


3 


—T) 


RMSCLN2_PUT 
; RMSCLNO-UPD 

RMSCLNO~DEL 

RMSGE| 


RMSRLS 

; RMSFIND2 
; this module performs the following functions: 

1. common $get/$find setup P 

2. accesses the bucket, locks the record if necessary, and 

for get. copies the record to the user buffer if move mode, 
setting the various rab fields as required. 
3. set ‘‘lLast-operation-was-a-find'’ and nrp context 

Calling sequence: 


entered via case branch from eqecaet 
or rms$find at rm$get2 or rm$findd respectively. 


exit is to user via rm$exrms. 


Input Parameters: 

impure area address 
ri0 ifab address 

r9 irab address 

r8 rab address 
Implicit Inputs: 


the contents of the rab and related irab and ifab. 
in particular, irb$v_find must be set if doing $find, else clear. 


Output Parameters: 


SOOSOCCOCOSCOSCSOSOSOSOOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOCOOCOOOCOOOOOOOOoOO 
DOCOCCCOSCOOOSOSSOOSOOSOSOSOOSOOSCOSOOSOSOSOSOSOOSOOSOSOOCOOCOOOOOSOOOOOOOOCOOoOoOO 
pe few lol ele lee lela awl el olelaleololeloleloleololeoleoleoleoleleleleoleololeoleoleololeleololelolololea lo) 

DOONAN E WN 9 OONA UE WIN O OO NAU EWN O ODNAU EWN OOONOUES WN -O0ONOUsFS OTF 


Be Se Se Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge 
~~ 
—_ 
— 


COOCOCOCSOSCOCOOSOOSOSCOSOOSCSCSOSOOOOSOSOSOSOOSCOSOOOSOOOOOOCOO OOOO OOOOOOOOOOOoOO 
ONIN NINN SD PAA APD AAD. TTT UT BB BBE EWI WIIInononononen oz 


rv? - ri destroyed 
r0 status 
3 Implicit Outputs: 
0 various fields of the rab are filled in to reflect the status of 
° the operation (see functional spec for details). 
0 the irab is similarly updated. 
a 
Completion Codes: 
$00 standard rms (see functional spec). 


RMSGETS/RA ol CORLAMECEINE srino  SCSEBCIBEG QHIDESHT UMCYBECHassee¥O4cBe, Fae, 


a 


isi Side Effects: 
none 
: ¢ 
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~SBTTL CLEANUP CODE 


code to clean up on errors (note: this is not the entry point to rm$get2) 


there are various entry points rr yy ehenque Gepend ine upon the function 
being executed. zeroes the rsz , and rfa fields of the rab, unlocks 
the rp and resets various irab Bey releases the bucket, and exits rms. 


Sete Ge Se Ge Ge Se Se Se Se Se 


inputs: 
r7 status code 
r4 bdb address or 0 if none 
CLEANUP: 
CLRW RABSW_RSZ(R8) ; indicate no record 


: entry point for $find and $put 


RMSCLN2_PUT: 


~ ASSUME RABSC_SEQ EQ 0 

TSTB RAB$B- RAC (RB) 3; seq. access? 

BNEQ RMSCLN2_ UPD : branch if not 

CLRL RABSL_BRT (RB) ; clear the record # 
: entry point for Supdate 
RMSCLN2_UPD: 

“CLRL. RABSW_RFA(RB) ; zero the rfa 

CLRW RABSW_RFA+4 (RB) BBs 


: entry point for $delete 


RMSCLN2_DEL:: 
BBCC 


BC #IRBSV_UNLOCK_RP,(R9) ,5$; oon" t unlock if manual lock 

MOVL IRBSL _RPCR9) RI P rp 

BEQL 10$ 3 Branc if none 

CLRL R2 : a order lock value 

BSBW RMSUNLOCK 3 ock record if Locked (ignore error) 
5$: CLRL IRBSL_RP(RI) : ob no current record 
10$: WIRBSU_FIND_LAST,(R9) ; clear find Last 

RMSRLS2 ; go release bucket 
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yor-001 $GET CODE ets et RMS.SRCIJRM2GET.MAR; 2 ° 
A 38 -SBTTL $GET CODE 
A 
A 40 ; 
° rh i entry point for relative-specific get 
A 528 
O2A 44 RMSGET2:: 
02A 45 $TSTPT GET2 
93 Hi 0 9 $ BSBW GETREC2 3 go access bucket 
bef 0 00 4 BSBW BG TE INDE 3; go access record 
C7 57 2 036 48 BLBC R7, CLEANUP ; get out on error 
9318 3 8 9 49 BSBW GETLOCK? ; lock the record, if necessary 
ci 5 E C 50 NTRETG: BLBC R7, CLEANUP i get out on error 
88 F 51 CSB #IRBSV FIND_LAST,(R9) |; clear find last flag 
8049 BF 57 B1 0043 26 CMPW R7,#RMS$_OK_RNFO@*XFFFF 0; was status = record not found? 
46 13 0048 5 BEQL NULL _REC ; branch if yes 
gpen 54 
04A 55 ; 
004A 2$ ; set the rab$w_rsz field based upon the record format 
OOCA 588 
01 50 AA 91 004A 259 CMPB —s IFBSB_RFMORG(R10) ,#FABSC_FIX ; rfm=fix? 
03 12 004 60 BNEQ 10$ 
0086 ee 005 61 BRW RSZFIX ; branch if yee 
56 = 85 C 005 6¢ 10$: MOVZWL (R5)+,R6 ; set variable record length 
03 S50 AA 91 0056 6 CMPB IFBSB_RFMORG(R10), MFABSC_VFC ; VFC record format? 
08 13 OOSA 64 BEQL VFCREC ; branch if vfc 
60 AA 56 81 O05C 65 CMPW R6, 1FBSW_MRS(R10) 3 size within range? 
7B 1B 0060 66 BLEQU CHKLOC 3 size ok, br and continue 
5B 11 0062 267 RB ERRIRC ; size illegal, br to error 
0064 68 
0064 69 ; 
Boee oY ; VFC record format. 
0064 i ; Adjust record size for fixed header size. Check against MRS to see if legal. 
0064 sf ; Move the header to the record header buffer. 
0064 74 ; 
0064 75 
0064 76 VFCREC 
50 SF AA QA 0064 77 MOVZBL IFBS$B_FSZ(R10),RO 3 pick up header size 
56 50 A2 0068 78 SUBW2 RO,R6 ; adjust record length 
60 AA 56 6: 0068 79 CMPW R6, IFBSW_MRS(R10) ; record size within bounds? 
“f 1A 006F 80 BGTRU  ERRIRC 3; gtru nope. report error. 
51 2C A 0 Babe + MOVL RABSL_RHB(R8) ,R1 3; get rhb address 
14 13 0075 § BEQL 10$ ; and branch if none 
077 28 IFNOWRT RO,(R1),ERRRHB,IRBSB_MODE(R9); branch if not writable 
54 OD $43 Be PUSH RG ; save bdb address 
61 65 50 28 bg 5 MOVC RO, (R5),(R1) 3 move the record header 
10 BA 84 Hy POP #*M<R4> 3; restore bdb address 
55 51 pO 0086 8 MOVL R1,R5 ; update record buffer addr 
03 11 089 88 kB 208 
55 0 ¢cO 0088 9 10$: ADDL2 = RO,R5S ; skip unwanted header 
4D «611 43 $' 208: RB CHKLOC ; go pick up main sequence 
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vor-001 $GET CODE mets Pi 94:03:38 RMS.SRCIRM2GET.MAR; 2 . 
9 93 
9 94 ; 
9 95 ; status from getfind2 was ok_rnf. 
4 3 ; this implies user has specified read of a non-existent record. 
9 98 
9 99 NULL_REC: 
56 = B4 9 0 CLRW R6 ; show zero len 
03 50 AA Bi 009 1 CMPW JEBSB_RFMORG(R10) ,#FABSC_VEC; rfm = vc? 
ee 09 § BNEQ 0$ ; branch if not 
51 2c AB ODD 09 0 MOVL RABSL_RHB(RB) ,R1 3; rhb opeg) tieet 
me 945 04 BEQL 208 ; branch if not 
50 SF AA 9A 9 05 MOVZBL_ IFBSB_FSZ(R10) ,RO : ast header len 
OOA 86 IFNOWRT RO, (RT),ERRRHB, IRB$B_MODE(R9); branch if not writable 
81 94 OOA 07 108: CLRB (R1)+ ; clear the buffer 
FB 50 F5 QOAB 08 SOBGTR RO,10$ ; loop | 
6A 11 OOAE 09 208: RB SETRSZ : go finish up 
008 10 
00B0 11 
00B0 \¢ ERRRHB: RMSERR RHB,R7 ; bad record header buffer 
$83 He 
0085 $12 ; mote: all errors detected after successfully returning from getfind2 
0085 16 ; must exit thru here to determine whether the current record must be 
00B5 317 ; unlocked on errors. see notes in locking code in getfind2. 
00B5 318 ; 
00B5 19 
0085 359 CLNIBR: 
04 5C €9 00B5 21 BLBC AP,10$ ; lbe no special action to 
0088 $55 3; unlock rp on error 
00B8 2 SSB #IRBSV_UNLOCK_RP, (R9) ; make sure record is unlocked 
FF41 31 OOBC 24 108: BRW CLEANUP ; go clean up 
OOBF 25 
OOBF 26 ; 
OOBF 27 ; handle errors 
OOBF 28 ; 
00BF $3 
OOBF 0 ERRIRC: 
OOBF 31 RMSERR IRC,R7 ; illegal record size in file 
0c AB 38 AB DO O0C4 3 MOVL RAB$L BKT(R8) ,RABSL_STV(R8); indicate rrn of bad record 
EA 11 00C9 ; BRB CLNIBR 3; go clean up 
00CB 4 
00CB 35 ERRUSZ: 
Bat § RMSERR USZ,R7 ; 0 user buffer Len 
as D CLNIBR ; go clean up 
it 8 
00D 9 ERRUBF : cna 
00D 40 RMSERR UBF ,R7 ; invalid user buffer 
pe 1 0007 ai iB CLNIBR : go clean up 


F § 
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067501 $GET CODE or Ser] 38 9}: 0: Hi RMS. ORCI RNG GET.MAR;2 . 
D9 44 ; 
4 ig ; set record size from mrs for fixed length record format 
D Sa 
56 60 AA_ B0 3 ‘3 RSZFIX: MOVW IFBSW_MRS(R10) ,R6 
DD 50 ; 
DD 51 ; if locate mode asked for and allowable, return pointer to record, 
ODD 26 ; else copy record to user buffer. 
ae 
9 68 33 E1 ODD 2? CHKLOC: BBC #RABSV_LOC+ROP, (RB) ,MOV ODE branch if locate mode not speced 
0B ‘ AA EO O0E1 6 BBS #F ABSV-UPD, 1FB$B FACCRI OVE_MODE; or if update accessed 
06 OA A4 04 EO 0066 35 BBS rye gNOLOCATE JBbBRBLF LES Re) MOVE * MODE; or if bdb says no 
28 AB 5 pO OO0EB 58 MOVL BAgst _RBF(R RBS set rbf from record y aaceas 
29 «611 ~=«OOEF 59 BRB : go set record size 
OOF 1 60 
OOF 1 61 ; 
OOF 1 6 3 move mode 
OOF 1 65 ; 
OOF 1 64 ; check out the user buffer and copy the record. 
OOF 1 65 ; 
OOF 1 66 
OOF1 367 MOVE_MODE: 
50 20 A8 3C OOF! 68 MOVZWL RABS$W_USZ(R8) RO ; get user buffer size 
D4 «613 = «O0FS 69 EQL ERRUSZ ; error if none 
56 50 B61 OOF? 70 CMPW i ; us2z < rs$z? 
64 IF OOFA 71 BLSSU ERRRTB ; branch if yes 
53 24 B8 DE OOFC 1s PROBEB: MOVAL angst UBF (R8) ,R3 ; get Gutter” addr 
0200 8 56 ~=6B1—S «0100 7 CMPW i pecers pester than 2 pages? 
36 «= 1A sO0105 74 BGTRU OBE bra yes 
0107 = 375 IFNOWRT RS, ens) ERRUBF , IRB$B Mone (R9); g Hid if ubf not writable 
54 DD O10E 6 MOVREC: PUSHL ; save bdb address 
28 AB «653)~=—#Oes«éQ)110 7 MOVL Ry, RABEL RBF (RB) ; set record address 
63 65 56 28 0114 78 MOVC3 Ro, R5), R3) : copy record 
10 BA 0118 79 POPR <Ri>’ ; restore bdb address 
22 AB 56 BO OITA 80 SETRSZ: MOVW RGe RABSW_R (RB) and set record size 
40 A9 01 48 A9 C1 Brae Be SETNRP: ADDL3 IRBSL_ SP TRON. #1, 1RBS$L _NRP(RO) ; set nrp from rp+1 
124 3 
it 4 4 ; release access to the bucket. — 
4 ? ; will cause write to occur if dirty and deferred write not set. 
124 7 
124 8 RMSRLS2:: 
124 9 TSTL R4 ; is there a bdb? 
1 g 90 BEQL 10s 3; branch if none 
1 91 CLRL R 3; no options wanted 
12A 35 BSBW pea EASE ; release access to bucket 
12D 9 BLBC R7,10$ ; branch if already had error 
1 94 BLBC RO .eRs ; branch if release failed 
1 95 10$: MOVL R7,RO 3; status to r0 
oi 6 36 20$: CSB #IRBSV_FIND,(R9) : clear ‘doing find’ 
13A y BRw RMSEXRAS : exit rms 
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probe writeablity of all pages ( > 1) of user buffer 


a Sete ee 


ONG_PROBE : 
M Rg «RO ; copy buffer length 

R3,R1 ; oe address 

#-512,R address constant 

R tthe ERRUBF , IRBS$B Honk (9); branch if not writable 


10$ IFNOWRT 
SUB i get address next page 
MOVAW (RO)CR2,RO ; salcusate new lengt 
BGT i branch if more to probe 
R2,R0 ; final page to probe? 
1 ; branch if yes 


BRW MOVREC return to main sequence 


record too long for user buffer 
note error and actual length ond adjust count to fill user buffer. 


ERRRTB: 
RMSERR RTB,R7 ; show record too big error 
MOVL R6,RABSL_STV(R8) ; tell user actual Length 
MOVL RO,R6 ; but copy only usz amount 
BRW PROBEB ; return to main sequence 
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RM2GET RELATIVE SPECIFIC GET AND FIND 
v04-001 SFIN b tbo : 
16F 4 8 .SBTTL $FIND CODE 
16F 4 
16F 4350; 
16F 431; entry point for $find function. 
16F 136 | 
16 4 
16F 434 RMSFIND2:: 
16 435 $TSTPT FIND2 
1A 1 5 4 6 BSBB «GE TTREC2 ; 
0133 30 0177 4 BSBW GETFIND2 ; 
03 57 t 17a 8 BLBC = RR? NTRETF : 
0104 «30 120 439 BSBW  =s- GEFLOCK2 ; 
1 § 441 NTRETF: SSB #IRBSV_FIND_LAST,(R9) =; 
07 57 £9 0184 ang BLBC ; 
187 44 ASSUME RABSC_SEQ EQ 0 
1E AB 95 «(0187 «444 TSTB RABSB" RAC (RB) ; 
98 12 O1BA 445 BNEQ  RMSRLS2 ; 
90 11 O18C 446 BRB gEIN NRE ; 
FE72 31 O1B8E 447 108 BRW RMSCLN2_PUT ; 
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go access bucket 

° ty + vecere 

r oner 

lock the. record, if necessary 


set last opr. aoe a find 
branch on err 


sequential access? 
branch if not 
yes - set nrp 
clean up on error 
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een 
me 
om 
- 

ory 


+ 
RMSGETREC2_PUT 
RMSREADBKT2_UPD 
RMSREADBKT 


this routine performs the following functions: 


1. sets record number from re. nrp, kbf or rfa depending upon 
rab$b_rac and irb$v_find_Last 

2. if irB$v_unlock_rp Set, Unlocks record specified by rp on entry 
rp will not be unlocked if this is a sequential get following a 
find or if this is a random access for the same record as the 
current record. this eliminates a window where the record lock 
could be lost accessing the same record. 

3. checks for record number valid 

4. calculates vbn and offset for record 

5. if bucket not past eof, calls rm$cache to locate the record 
(possibly reading it in) 

6. calculates address of record in buffer 


calling sequence: 
bsbw getrec2 
alternate entry at rm$getrec2_put for $put 


PPP PPP PP PPP PPP PPP PPP PPP PPP PPP PPP PP PPL LPL EEE CO 
OO 000000 00 09 09 09 09 00 00 NI NIN NNN NNN DP PPP AAA AAA MII te 
=O OONOUE WIN OC ODN UE WIN 0 OD NOU EWI OO OONOUES wn "Ow eM 


Be Se Se Se Be Se Be Se Se Se Se Se Ss Ge Se Se Be Ge Ge Ge Be Be Se Be Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Se Se Ge Be Se Se Se Se Ge Se Ge Se Ge Se Se 


input parameters: 
rij impurea area address 
r10 ifab address 
r9 irab address 
r8 rab address 
r3 csh$m_lock flag if entry at rm$getrec2_put 
implicit inputs: ‘| 
rab$b_rac record access mode FAE 
rab$w_rfa if rac = rfa F AE 
rab$l_kbf if rac = key GE} 
ifb$l_ebk end of file block GE1 
ifb$l_mrn max. record GE! 
49 irb$l=rp record # GF« 
49 irb$l_nrp if rac = seq and irb$v_find_last = 0 GF < 
$32 irb$v_find set if doing $find HH 
rh cutput parameters: 4 
498 r5 address of record in buffer IFS 
499 r4 bdb address, if any, else 0 IFE 
500 r0 status code IFE 
1 rab$l_bkt ren of record accessed IFt 
¢ ri-r3,r6,ap destroyed | 4 
Be implicit outputs: | IFt 
5 | IRI 
| 
| 
| 
j 
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] 
if error = eof, r2 has the requried hi vbn + 1 | 
| 


ze 


completion codes: 
standard rms. 
side effects: 


process “| have stalled waiting for access to the bucket. 
ucket is left accessed. 


Sete Ge Ge Ge Ge Ge Ge Se Ge Ge 
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; entry point for $get and $find 


GETREC2: 
SCSHFLAGS <> 3; need read only access to bkt 


mveroage entry point for + 
(r5 already set to csh$m_lock) 


L 3 zero bdb address 
CLRL IRB$L_CURBDB(R9) 3; (both places that we look for it) 


(flag for no bucket accessed) 
get the record # to use based upon rac 


ASSUME RABS 


><o© 
mmm 


CASE TYPE=8 ,SRC=RABS$B_RAC(R8) ,- 
DISPLIST=<SEQRAC ,KEYRAC,RFARAC> ; dispatch to right routine 


: fall thru on bad rac value 


ERRRAC: 
— RAC ; bad rac value 


oO 
“ 


RFAERR: 
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FN OOO CO\WWWIWINIWINILW 00 09 09 09 0D CD CD CD CD 0D CD 09 UT WI WII III 
PV PVIVIVWIULVSIVIUPUSVSVSVSVSUSUS US US US ISUSIVSUS USS SIS ISIS USISISIOSISISISISISISIS «— 
PUPP SVS BS BS ES EE NNN NINO PINIPPOPITUN St 
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RMSERR RFA ; efa error (rfa=0) 
RSB 


Oo 
uw 


| 
RMSGETREC2_PUT:: 
CLR R 
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subroutine to get number of records per bucket into r0 
outputs: 
r 
r 


number of records per bucket 
number of blocks per bucket 


RECS_BKT 
bucket size into r2 
bytes/bucket now 


records/bucket 


MOVZBL 1 B$B_BKS(R10).R2 
SHL. #9. R27RO 


9A 
78 
DIVW2 IRB$W.CSIZ(R9),RO 
RSB 


rac = rfa 
set rp from rfa value in rab 


RFARAC: 
10 A& 


ag RABSL_RFAO(R8) ,R5 
00 
dB 


: ; assume this really relative 
BBC #CSH$V_LOCK,R3,ULKRP 
ERRRAC 


; zero is error 
; ok if read function 
; rfa access error if put 
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RM2GET REL Ariye SPECIFIC GET AND FIND 16-SEP-1984 9}: 03: 3 AX/VMS Macro V04-00 Page 17 
v04- GETREC2 = ROUTINE TO LOCATE RECORD IN BU 7=SEP=-1984 17: RMS.SR chk RMOGET MAR: 2 (19) 
Ig is 
1C 91: handle key buffer errors 
168 398° 
1¢ 94 ERRKS2: 
1C 95 RMSERR KSZ ; invalid key Length 
05 OIE 38 RSB 
1CE 98 ERRKBF: , 
pice 99 RMSERR KBF ; invalid key buffer 
0 Bibs 84 re 
01D4 O06 ERRKEY: 
0104 60 RMSERR KEY ; key < or = 0 
05 0109 604 RSB 
O1DA 606 ERRMRN: 
53 D5 ty 607 " TSTL R3 ; do cache flags indicate $put 
08 12 O1DC 608 NEQ 10$ 3 branch if yes (err = mrn) 
O1DE 609 ASSUME RABSC_SEQ EQ U0 
1E AB 95 OIDE 610 RAB$B_RAC (RB) 3; sequential access? 
03 12 O181 611 BNEQ 10$ ; branch if not 
00cO)§3=6—31 —(O1E3 ol¢ BRW ERREOF 3 pes - give eof error 
Q01E6 613 10S: RMSERR MRN ; key > max. rec. # 
05 O1EB 614 RSB 
O1EC 615 


_ 
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anee RELATIVE SPECIFIC GET AND FIND 16- 4 7 VAX/VMS Macro V04-00 Page 18 
= ROUTIN L N BU /7-S RMS. ERI GET.MAR; (21) 
06501 CETRECS ROUTINE TO LOCATE RECORD IN B a: 71982 9} 0: Hi RM2G iP 2 . 21) | 
Haat 
1EC 819 ; rac = key 
1EC }§3=6.620 gx 
He ? : i; set rp from relative record number in key buffer 
1EC 623 * 
34 AB 3 1EC 624 KEYRAC: TSTB RABS$B_KSZ(R8) 3 zero nity 
06 13 O1FF 625 BEQL 108 i branch, if yes " aeteuit? 
04 S4A 91 O1F1 6 § CMPB RAB ase KSZ(RB) a4 : 
>) i! eS ee BNEQ ERRKS : else’ if not 
55 3068 O€ pire 6 8 10$: MOVAL a bt KBr (ne). R5 3 get ke key buffer addr 
1FB 6 IF NORD ; branch if not readable 
55 $3 dO 34 630 VL 3; pick up record # 
08 68 36 £0 0204 631 BBS #RABSV_KGT+ROP,(R8),KGT ; branch if kgt 
55 48 AD D1 0208 6 ¢ CMPL IRBSL_RP(R9), Rr§ 3 same as current record? 
1A 12 O020C 63 BNEQ ULKRP~ 3 nope, continue normally 
14 #11 8g 0F 634 BRB PORNLK 3 check if no lock set 
55 D6 021 635 KGT: INCL R5 : increment record # 
14 #171 osi¢ O36 BRB ULKRP 
0214 638; 
0214 639; rac = seq 
0214 640; 
0214 641 ; set rp from nrp unless doing a $get after a $find, in which case 
0214 O66 3; the rp is correct as is 
0214 643: | 
0214 644 
0214 645 SEQRAC: 
55 40 A9 DO 0214 646 MOVL IRBSL ate R5 ; assume next record 
0c 69 29 #2%+E€O 0218 647 BBS #IRBST_ pi , (RI) ,ULKRP branch if doing $find 
08 69 25 €1 OQ21C 648 BBC #IRBSV_FIND “LAST, (R9) ,ULKRP: or if last operation not $find 
0220 649 : (note: this bit will be clear 
0220 650 ; for $put) 
0220 651 
55 48 A9 DO 0220 $26 MOVL IRB$L_RP(R9) RS e-get last record 
1168 34 €1 0224 653 CHKNLK: BBC #RABS$T _NLK+ROP, (R8), SETRP: "den" t unlock current record 
bese 654 ; unless no lock desired on 
022 655 3; the new record 
osS8 656 
0228 657 ; 
bsSB 658 ; if irb$v_unlock_rp set, unlock the current record 
0558 660° | 
0D 69 2D €E5 $558 661 ULKRP: BBCC #IRBSV_UNLOCK_RP,(R9), SETRP; clear unlock flag and branch 
8S ; 26 : if auto unlock not req'd. 
51 48 A9 00 a2 C 664 MOVL IRBSL_RP(R9) ,R1 ; get record # | 
5 4 0230 665 CLRL Q : clear hi word of rec # 
5 bp Ose 66 PUSHL R ; save cache flags 
FoC9’ 30 0 ? 66 BSBW RMSUNLOCK : unlock the record 
0237 668 : (ignore possible error) | 
08 ®BA He 669 POPR #*M<R3> 3 restore cache flags 
9 670 
39 671 ; 
3 ore 3 set rp and check for validity 
0239 675; note: this is also an alterante entry point to get next record 
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48 A 55 p09 R5, IRBSL_RP(R9) 
95 1 LEG — ERRKEY 
10 a8 =655~—i«éi MOVL  R5,RABSW_RFA(R8) 
14 As B4 CLRW RABSW_RFA+4(RB) 
10 6A 38 €0 BBS #IFBSO_SEQFIL,(R10),15$ 
ASSUME RABS$C_SEQ EQ 0 
1E AB 9S TST RABSB_RAC (RB) 
04 if BNEQ 19 
38 a8) =«655)—COéO MOVL 5, RABSL_BKT(R8) 
55 OOAC CA 01 10$: CMPL 1FB$L_MRNTR10) ,R5 
80 19 BLSS — ERRMRA 


calculate vbn and offset 


15$: RS 
RECS_BKT 


ADDL 1FBSL_DVBN(R10) ,RI 


VIPIUIO NYP ww 
—FEPwWO OO 
oO 
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SETOFF 
MOVL 1,1 RBSL_CURVBN(R9) 
RMSREADBKT2_UPD:: 

ADDC2 = R1 
R2 
ER 
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Sete te 


R2 
IFBS$L_EBK(R10) 
EOF 
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CMPL 7 
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H r5 (for sequent +H get and find after initially positioning 


AX/VMS Macro V04-00 
RMS.SRCIRM2GET.MAR; 2 


save rec # in rp 

get out on bad rec # 

set rfa from rec # 

be neat 

skip mrn check and don't 
return bkt if seq file 


sequential access? 
only if sequential access 


rec # within bounds? 
branch if not 


; rec #- 1 
; # records/bucket to r0 
; loads r2 with bucket size 


ero extend dividend 


R6 : 2 
EDIV RO,R5,R1,IRBSL_RP_OFF(R9S; compute bkt # (in r1) 


MULW2 IRB$W_CSIZ(R9), IRB$L_RP_OF 
; get relative vbn 


and rec-in-bkt (in rp_off) 
F(R9); compute offset in bucket 


and point past prolog 


; already got buffer? 


branch if yes 


; save vbn for Later 


3; compute end vbn+1 


ast eof? 
ranch if yes 
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C 6 
{ IC GET AND FIND 19-56 b=1 38 01:03:37 AX/VMS Macro V04-00 
NE TO LOCATE RECORD IN BU 7=SEP=1984 :13:37 CRMS.SRCIRM2GET.MAR;2 
: entry point to read a bucket via rm$cache 
: inputs: 
: wen same as for rm$get2 
5 " cache flags 
; r von 
3 irb$l_rp_off offset to record cell in bucket 
: outputs: 
: r5 record address 
3 r4 bdb address (0 on failure) 
; r0 status 
: ri-r3,ap destroyed 
; irb$l_curbdb bdb address 


RMSREADBKT2:: 
MOVZBL IFBS$B_BKS(R10) ,R2 ; bkt size to r2 
ASHL ransfer size 


’ : £ 

$CACHE VBN=R1,SIZE=R2,FLAGS=R3,ERR=ERRCSH; access bkt 

MOVL 4, IRB$L_CURBDB(R9) ; save bdb address 

ADDL2 IRBS$L_RP~OFF (RO) RS ; add in record offset to buffer 
; addr giving record addr 


RSB 


: already have bdb. 


SETOFF: ADDL3 
RMSSU® 
RSB 


compute new record buffer address. 


IRB$L_RP_OFF(R9) ,BDBSL_ADDR(R4) ,R5 
; show success 


: handle errors 


ERREOF: RMSERR EOF ; say it's eof 
RSB 


ERRCSH: CLRL R4 
RSB 


; show no bdb accessed 
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RM2GET RELATIVE SPECIFIC GET AND FIND 16-SEP-1984 01:03:37 VAX/VMS Macro V04-00 Pa 1 | RM? 
voreo01 GETFINDE = COMMON SGET AND SFIND CODE TO = EP= 1984 07:93:35 URMS. SRCIRMOGET .MAR; 2 r Bly, v04 
At ~SBTTL GETFIND2 = COMMON $GET AND SFIND CODE TO ACCESSRECORD | 
AF ++ | 


this routine performs the following functions: 


1. checks r0 status code and if in error checks for eof. 
f eof and rac is not sequential, coenere the status to rnf 
(record not found) unless the nxr rop bit is set, in which case 
it changes the status to ok_rnf. 


| 
| 
2. if r0 does not indicate an error, checks the control byte of the 
record to see if record exists. if not and rac not = seq, 
returns rnf (del if rac=rfa) unless the nxr rop bit is set, in which 
case it returns either ok_rnf or ok_del. if rac = seq, non-existent 
records are skipped until either a valid record is found or eof | 

is encountered. 

| 

| 
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inputs: 
AF 
AF r0 status code 
AF r4 bdb address if one, else 0 
AF r5 record cell address 
AF r8-r11 same as for rm$get2 
- irb$l_rp current record 
AR outputs: 
AF 
AF r7 status code a 
AF r5 record cell address + 1 (i.e., past control byte) 
Af r0-r3,r6 destroyed 
AF ap if success (low bit set r7), ap = 0 if irb$v_unlock_rp 


Pd 
~ 
aN 
oo 
NO 


only to determine whether rp needs to be unlocked on | 
errors detected later. ap = 1 if rp is to be unlocked 
on later errors regardless of irb$v_unlock_rp 
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ane} eryeriys § SPECIFIC ge! AND rie 197-360-1386 9}: oF: He AX/VMS Macro V04-00 Page (38 
v04-001 GETF IND COMMON $GET AND SFIND CODE TO 7=SEP-1984 RMS. ERC IR RM2G GET.MAR;2 a 
AF GETFIND2: | 
57 4! a g MOVL Bye ; save status code 
7F E Bg 4 BLBC RO, CHKEOF branch qn rror 
48 6A E0 B 5 BBS Af BSV SEQFIL,(R10),LOCK: skip th Junk if seq file 
89 06 ASSUME FABSC. SEG EQ 6 
1E AB 2 B9 TSTB RAB$B_RAC (RB) i sequential access mode? 
44 1 BC 3 BEQL SEQACT branch if yes 
01 1E a ¥} BF ance paes6. RAC (RB) , #RABSC _KEY: zo bs. »*t aceeere 
| 
04 AB 00600000 y 0§ C4 11 BITL #RABSM_KGE!RABSM_KGT, RaBSL ROP IRB), rt kge or kgt set? 
4 1 cc 1¢ BNEQ SEQACC™ ; ranch if yes 
08 Bs cf 135 2$: CMPB (R5)+,#DLCSM_REC pees reser entet? | 
E 1 D 14 BEQL LOCK branch if y 
FF AS F3 BF 9 D3 15 BITB #*C <DLCSM_DELETED! DLCSM. REC, eT (RS) *oeite bit combination? 
77 12 0208 518 BNEQ ERRIRC_BR anch if not 
12 68 37 #+EO O2DA 1 BBS #RABSV_NXR+ROP, (RB), RTNNAR:; "tonne if user wants the 
DE 18 non-existent record 
02 1E A8& 91 DE 19 CMPB RABS$B RAC(R8) ,ARABSC_RFA; "s rac=rfa? 
06 12 ia | 0 NEQ ERRRNF ; branch if not (err = rnf) 
O2E4 1 RMSERR DEL,R7 ; set error code 
05 O2E9 8 $ R 3; return 
O2EA : ERRRNF: RMSERR RNF,R7 
05 8 4 H ¢ RSB 
O2FO 826 
02F0 ; 7 RTNNXR: 
O7 FF AS O02 €1 O2FO 8 BC WOLC$V_DELETED,-1(R5),OK_RNF; branch if record not deleted 
O2F5 829 RMSSUC OK_DEL7>R? ; indicate read of deleted record 
05=«11 8 4, 539 BRB Lock 3 and continue 
8 ft HE OK_RNF: RMSSUC OK_RNF,R7 ; indicate read of non-ex rec. 
05 B30, 535 LOCK: RSB 3 and continue | 
30 36 PY } 
$30 837 ; handle sequential access 
030 o35 ; if record deleted or never existed try next record. 
0303 B40 | | 
08 85 91 $3 Bit SEQACC: CMPB (R5)+,#0LCS$M_REC ; foes peserd outst? 
FA 13 it Ha) BEQL LOCK branch if y 
FF AS F3 8F 93 0307 4 BITB #*C <DLCSM _DELETED!DLCSM_REC>, reth3) relied bit combination? 
43 16 030C 44 BNEQ ERRIRC_BR ; branch if not 
50 b¢ Ao =601 7? 7 45 ASHL #1 ipesp- CSIZ(R9) ,RO i get twice the cell size 
0 4C A9 Ad 031 46 ADDW2 IRBSW_RP7OFF(R9) ,RO : plus the record offset | 
31 47 3 (i.e. the end of the next rec) 
50 16 A4 861 17 48 CMPW BOBSW_SIZE(R4) ,RO ; next reseed in this bkt? 
1E 1B 49 BGEQU As : branch if yes (omit release) 
Be 0310 50 CLRL R ; no options wanted 
FCDE' 30 OSIF 51 BSBW RMSRELEASE 3 release access to bucket 
D4 8 22 26 CLRL R4 ; show no bdb 
3 AQ =s«~4 4 5 CLRL IRB$L_CURBDB(R9) 3 and no current bdb 
55 01 48 a9 (C1 7 54 10$ ADDL3 = IRBSL-RP(R9) ,#1,R5 3 get next record # 
53 4 C 55 CLRL R3 ; indicate get 
FFO8 0 E 23 BSBW SETRP ; get the record 
FF7B 1 1 5 BRW GETFIND2 3; and check it out 
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RM2GET RELATIVE SPECIFIC GET AND FIND 16-SEP-1984 01:03:37 VAX/VMS Macro v04-00 
v04-001 CETRINDS = COMMON $GET AND Hatt CODE TO aie Ti 9b :03:3 RMS .SRCJRM2GET.MAR; 2 
4 59 
4 ; 
r ; got an error. 
? o7 ; if error = eof perform following: 
4 65 ; if rac not = seq, change error code to record not found, unless 
4 98 3 user is reading non-existent records, in which case set status to 
| ? ; ok_rnf and continue 
: HS 
2 4 9 CHKEOF : 
827A BF 50 BI 4 7? CMPW RO, #RMSS_EOFE*XFFFF ; was error = eof? 
ww 8 9 i BNEQ GFOXT1 ; branch if not 
B 7 ASSUME RABSC_SEQ EQ 0 
1E A8 3 0338 74 TSTB a | RAC (RB) 3; rac = s9q? 
beth 8 3 75 BEQL GF2xTT ; branch if yes 
OA 68 ? ~=6€0 & 6 BBS #RABSV_NXR+ROP, (RB) ,OK_RNF1; modify status and continue 
05 6A 8 €0 8 44 7 $ #IFBSV_SEQFIL,(R10),GF2XT1; eof if really seq file 
48 78 MSERR RNF,R7 ; set code to rec. not found 
05 0340 879 GF2XT1: RSB 
Bace 880 
rh 881 OK_RNF1 
FFAB 31 O34E HY BRW OK _RNF ; extended branch 
0351 88 
0351 884 ERRIRC_BR: 
FDO6B 31 0351 885 R ERRIRC 3 extended branch 
0354 886 
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if record locking not required, return to caicer. 

otherwise, if the file is write accessed and the nlk (no lock) rop 

bit is clear, lock the record. if the file is either not write accessed or 
nik is set, need merely check that no other user has record locked. 


however, if file is not write-accessed, but user wants to lock for read, 
allow him to. 


inputs: 
status code 
r4 bdb address if one, else 0 
r5 record cell address 
rB-r11 same as for rm$get2 
irb$l_rp current record number 
outputs: 
r7 status code 
r4 may be loaded with contents of irb$l_curbdb 


side effects 
record locked 
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GETLOCK2: : 
BBS #IFBSV_NORECLK,(R10),- ; 
GF2XIT ; branch if no locking 
MOVL IRBSL_RP(R9) ,R1 ; set rec # 
CLRL R2 ; and high half 
BBS #RABSV_NLK+ROP,- : 
(R8) K ; branch if lock not wanted 
BBS #IFB$V_WRTACC,(R10),10$ ; branch if write accessed 
BBC #RABSV-REA+ROP, - : 
(R8) ,ACOCK ; branch if not Locking for read 
10$: BSBW RMSLOCK ; lock record 
BLBC RO,SETR7 ; branch if failure 
TSTL R4 ; is a bucket accessed? 
BEQL CHKEOF1 3; branch if none 
CMPW RO,#RMSS_OK_WAT&*XFFFF 0; did we lock record only after wait? 
BNEQ CHKULK : if neq no, don't reaccess bucket 
BSBW GETREC2 > reaccess bucket that STALL deaccessed 
BSBW GETFIND2 3 and reaccess record 
CHKULK : 
CLRL AP 3; initialize 
BBSC #IRBSV_UNLOCK_RP,- ; if already set, this means 
(R9),10$ ; auto locked record not unlockd 


AAAI AAAI AAAI AIA ANIA AANA AAAI WAIN AIA AIAN AAAI AAAI AAI OK 
GOOD] NODDED. DDE TTI RT 


NNO ND OLMIS F WONMOM OM ONS LLL LLLP PPP PPP PPP PP PPP PPP PPP PPE EEE 

WOOO OOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOM@MOMmm@ccccc;cNED OF 
BBE FAWN WII IPINININIPININID 4 OO OS HS S| SH DOO OCOOCOCOCOCOCOCOWOOOOOOOVOO@DW oe 
FPWR 0 ODN NE WIP = OOO NOAA UE WIN = O OO NOUN EWI) S(O OO NOU EWR OOONO UE WR OOm@ A 
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CMPW RO,#RMS$S_OK_ALK&*XFFFF 0; was record already locked 


SPECIFIC GET AND FIND 16-SEP-1984 01:03:37 YAX/VMS Macro V04-00 Page 24 | 
STOCK RELATIVE RECORD IF NECES 9=SEP=1984 17:13:37 TAMSVSRCTAMSGET MAR 2 age 38) 
\SBITL GETLOCK2 = LOCK RELATIVE RECORD IF NECESSARY 
++ 
GETLOCK2 


SEAT IVE SPECIFIC GET AND FIND 197$60-138% 04:03:37 AX/VMS Macre V04-00 
GETLOCK2 = LOCK RELATIVE RECORD IF NECES 7-SEP-1984 17:15:57 CRMS.SRCIRM2GET.MAR;2 
3 1 C 45 BEQL CHKR7 : yes, don't unlock automatically 
5C D ; 6 10$: MOVL #1 AP ; must unlock recerd if further 
i od 3 errors encountered 
V_ULK+ROP, » CHKR/; Leave unlock _rp clear 
2B 68 32 EO $49 BBS #RABS ROP, (RB), CHKR7; lL lock l if 
; manual loc 
£ JRP, ‘ :; indicate unlock require 
27 69 20 —3 3 3a BBCS #IRBSV_UNLOCK_RP,(R9),CHKR7; indi Lock ired 
4 826 3; and branch 
99 954; we have just locked a record but there is no bucket accessed. 
99 955 ; could only be a lock on a non-existent record past eof. check that 
99 329 i record is still past eof to avoid ceturntng a false status of ok_rnf 
4 $35 ; if record has been added to file since we last checked. 
99 959 ° 
44 960 CHKEOF1: 
53 SE AA 9A 99 961 rte IFB$B_BKS(R10) ,R3 : get # blks/bkt 
53 44 a9 «= CO0.s«O039D 96¢ ADDL2 IRBSL-CURVBN(R9) ,R3 ; + current vbn 
53 74 AA D1 «03A1 «96 CMPL JEBSLEBK(RI0) .R3 : still past eof? 
0¢ 1E ‘3 964 BGEQU 0$ : branch if not 
D 11 A 965 BRB CHKUL 3 continue 
FC54" 30 4 208 10$: BSBW RMSUNLOCK ; unlock the record 
51 44 a9 00 AC 96 IRB$L_CURVBN(R9) ,R1 ; restore vbn 
0380 968 SCSHFLAGS <> 3 no need to lock 
FEDO 3 0 Be 969 BSBW RMSREADBKT2 3 go read the bucket 
FEF? 0 038 af0 BSBW GE TF IND 3; and check it out 
LOCK ; loc t again! 
9A 11 0388 97 BRB GETLOC lock i in! 
as 
BaBA 974 ; either not write accessed or nlk set. 
3BA 975 ; need merely check that record is not locked from readers. 
Bak are 
FC43° 30 S3BA 978 QLOCK: BSBW RMSQUERY_LCK ; check if read ok 
05 50 €9 O38D 979 BLBC RO,SETR7 3; branch on error 
O3Co 98 
03C0 ons 3; update status in r7 with the result of lock or querylock unless r7 
t44 384 ; already has some status other than rms$_normal 
CO 80985 * 
01 57 81 C 9 § CHKR7: CMPW R7 ,#RMSS_NORMALE*XFFFF 0; cr? = normal? 
07 12 ¢ 9 BNEQ ; branch if not 
54 20 A9 00 C 3 8 SETR7: MOVL IRBSL_CURBDB(R9), R4 ; Reload R4 with curbdb in case 
C9 : a record lock error has left it 
C9 =: 990 3; mot accessed. 
57 50 0 C9 =: 991 MOVL RO,R7 ; update status 
0 CC 338 GF2XIT: RSB 
CD 99 
CD 994 END 
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RM2GET 
Symbol table 4 RMS.SRCIRM2GET.MAR; 2 


RMSGET2 O2A RG 1 
RMSCETREC2_PUT Soo00198 Re] 
RMSLOCK tettenne x 1 
RMSQUERY , K eeerrene x 1 
RMSREADBR at RG 1 
RMSREADBKT2_UPD C RG 1 
a eeneeene =X 1 
RMSRLS 00000124 RG 1 
RMSUNLOCK eeeerene a 1 
RMS$_DEL = 0001 $¢ 

RMS$_EOF = 0001827A 
RMS$_IRC = 8 1857C 

RMS$_KBF = 1858C¢ 

RMS$_KEY = 00018594 
RMS$_KSZ = 000185A4 
RMS$_MRN = 000185CC 
RMS$_NORMAL = 0001 yh 
RMS$_OK_ALK = 0001 8 9 
RMS$_OK_DEL = 00018041 
RMS$_OK_RN = 00018049 
RMS$_OK_WAT = 00018061 

RMS$_RAC = 44d 644 
RMS$_RFA = 0001865¢ 
RMS$_RHB = 0001866C 

RMS$_RNF = 0001 ee 
RMS$_RTB = Q0001B1A 

MS$_UBF = 000186EC 

RMS$_USZ = 000186F4 

oP = 00000020 

RSZFIX 00000009 R 01 
RTNNXR 44 444 FOR 01 
SEQACC 444 02 R 01 
SEQRAC 00000214 R 01 
SE TNRP OOOOTIE R 01 
SETOFF at oes R 01 
SETR7 0000 ¢ R 01 
ETRP Benne 9R 4 
SETRSZ 000011A R 1 
TPTSL_F IND2 eenneeee = =6X =| 0] 
TPTSL_GET2 eeneeeee =X = 01 
ULKRP 00000228 R 01 
VF CREC 00000064 R 01 

perm ae reer ern en eccee + 
: Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 


1 Wruavecs a eee 0000000  ( Q.) 00 « 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00008cD ( 973.) 01¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
0000000 « 0.) 02 NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


- 


J 6 
RELATIVE SPECIFIC GET AND FIND 197 3E = 1388 04:03:37 AX/VMS Macro V04-00 Page 3h). 
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WAIST Macro Run Statistics “ATIVE SPECIFIC GET AND FIND "PrSEp=19b6 17:18:37 


toner amon otr ae cess oan aes + 


! Performance indicators ! 


perme eee ee eee ecm ne ee een ce + 


Phase Page faults CPU Time Elapsed Time 
Initialization 2 
Command processing 


Pass 1 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 67 


The working set Limit was 1500 pages. 

63172 bytes (124 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 1021 non-local and 28 local symbols. 
994 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

29 pages of virtual memory were used to define 28 macros. 


teecwece were te mem ee mes eee eee + 
! Macro Library statistics H 
fH ORR ER Re Oe 
Macro Library name Macros defined 
_$255$DUA28: rs C0 s ams 8s 17 
_8255$DUA28:(SYS.OBJJL1B.MLB;1 3 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 
TOTALS (all Libraries) 24 


1137 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RM2GET/OBJ=0BJ$:RM2GET MSRC$:RM2GET/UPDATE=(ENHS$:RM2GET) +EXECML$/L1B+LIB$:RMS/LIB 
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